home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_mpu / mpudemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  1.7 KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00004080&
  4.    Caption         =   "MpuDemo"
  5.    ClientHeight    =   1980
  6.    ClientLeft      =   3000
  7.    ClientTop       =   3435
  8.    ClientWidth     =   5370
  9.    Height          =   2385
  10.    Icon            =   MPUDEMO.FRX:0000
  11.    Left            =   2940
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   1980
  15.    ScaleWidth      =   5370
  16.    Top             =   3090
  17.    Width           =   5490
  18.    Begin CommandButton Command2 
  19.       Caption         =   "Exit"
  20.       Height          =   495
  21.       Left            =   3000
  22.       TabIndex        =   1
  23.       Top             =   1320
  24.       Width           =   1455
  25.    End
  26.    Begin CommandButton Command1 
  27.       Caption         =   "Demo"
  28.       Height          =   495
  29.       Left            =   840
  30.       TabIndex        =   0
  31.       Top             =   1320
  32.       Width           =   1455
  33.    End
  34.    Begin TextBox Text1 
  35.       Height          =   375
  36.       Left            =   240
  37.       TabIndex        =   2
  38.       Text            =   "            MpuDemo - Press Demo to hear Midi demo"
  39.       Top             =   720
  40.       Width           =   4935
  41.    End
  42.    Begin PictureBox Picture1 
  43.       BackColor       =   &H0000C000&
  44.       Height          =   495
  45.       Left            =   2400
  46.       Picture         =   MPUDEMO.FRX:0302
  47.       ScaleHeight     =   465
  48.       ScaleWidth      =   465
  49.       TabIndex        =   3
  50.       Top             =   120
  51.       Width           =   495
  52.    End
  53. Sub Command1_Click ()
  54. Call MpuPlay
  55. End Sub
  56. Sub Command2_Click ()
  57.  RSTMPU
  58. End Sub
  59. Sub Form_Load ()
  60.   RSTMPU
  61. End Sub
  62. Sub Form_Unload (Cancel As Integer)
  63.   RSTMPU
  64.   End
  65. End Sub
  66.